home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earkit / ftp / rexx / profile.rexx next >
OS/2 REXX Batch file  |  1996-09-08  |  947b  |  42 lines
  1. /*
  2.  
  3. AmFTP Rexx-Port Example Script, profile.rexx
  4.  
  5. Copyright © 1995-1996 by Mathias Mischler, All Rights Reserved.
  6.  
  7.  
  8. This example script gets contents of one the first profile entry and
  9. displays them.
  10. Afterwards a new profile (Dummy) will created and host entry of this
  11. profile will be set (Localhost).
  12.  
  13. */
  14.  
  15. /* Open AMFTP Rexx-Port */
  16. OPTIONS RESULTS
  17. RXLIB "AMFTP.1"
  18. ADDRESS 'AMFTP.1'
  19.  
  20. GETPROFILE 0 "MYPRF"
  21.  
  22. say
  23. say "First AmFTP Profile"
  24. say "==================="
  25. say "Profile Label    :" MYPRF.LABEL
  26. say "Host             :" MYPRF.HOST
  27. say "Port             :" MYPRF.PORT
  28. say "Default Directory:" MYPRF.DEFDIR
  29. say "Local Directory  :" MYPRF.LOCALDIR
  30. say "Username         :" MYPRF.USERNAME
  31. say "Password         :" MYPRF.PASSWORD
  32. say "Anon-Login       :" MYPRF.ANON
  33. say "ADT-Server       :" MYPRF.ADT
  34.  
  35. say
  36. say "Creating new Profile `Dummy'..."
  37. CREATEPROFILE "Dummy"
  38.  
  39. say "Set host to `Localhost'."
  40. DUMMY.HOST = "Localhost"
  41. SETPROFILE RESULT DUMMY
  42.